-- card: 4502 from stack: in.5
-- bmap block id: 12474
-- flags: 0000
-- background id: 2946
-- name: Menu Principal
----- HyperTalk script -----
on popUp topics
  set cursor to 4
  lock screen
  if the visible of button id 8 is false then
    hide card field "Commentaires"
    show card field "Liste complémentaire"
    show button id 8
    show button "Fermer"
    show button "Cliquez sur le thème désiré."
  else if the short name of card button id 8 is the short name of the target then
    send "mouseUp" to btn "Fermer"
    unlock screen
    exit popUp
  end if
  put topics into card field "Liste complémentaire"
  set the name of card button id 8 to the short name of the target
  unlock screen
end popUp




-- part 2 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=232 top=85 right=130 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Commentaires


-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=18 top=169 right=191 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Nouvelles fonctions HyperCard
----- HyperTalk script -----
on mouseUp
  popUp "A propos de la version 1.2.5" &return& "Retour = Tabulation" &return& "Copier un champ et son texte" &return& "Déplacer une figure" &return& "Raccourcis pour l'interligne" &return& "Piles et serveurs de fichiers" &return& "Piles protégées"
end mouseUp





-- part 4 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=18 top=190 right=212 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Nouvelles commandes HyperTalk
----- HyperTalk script -----
on mouseUp
  popUp "Find" &return& "Hide Picture" &return& "Lock et Unlock Screen" &return& "Select" &return& "Show Picture"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=18 top=211 right=233 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Nouvelles fonctions HyperTalk
----- HyperTalk script -----
on mouseUp
  popUp "clickH et clickV" &return& "foundChunk" &return& "foundField" &return& "foundLine" &return& "foundText" &return& "Number" &return& "selectedChunk" &return& "selectedField" &return& "selectedLine" &return& "selectedText"
end mouseUp






-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=18 top=232 right=254 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Nouvelles propri�t�s HyperTalk
----- HyperTalk script -----
on mouseUp
  popUp "autoTab" &return& "cantDelete" &return& "cantModify" &return& "Cursor" &return& "showPict" &return& "userModify"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=18 top=253 right=275 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Autres nouveaut�s HyperTalk
----- HyperTalk script -----
on mouseUp
  popUp "Nouveaux synonymes" &return& "Accès direct aux scripts" &return& "Me et Target" &return& "Nouveaux messages système" &return& "Coordonnées"
end mouseUp




-- part 8 (button)
-- low flags: 80
-- high flags: C002
-- rect: left=232 top=92 right=112 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Nouvelles fonctions HyperCard


-- part 9 (button)
-- low flags: 80
-- high flags: C002
-- rect: left=232 top=112 right=132 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Cliquez sur le th�me d�sir�.


-- part 10 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=232 top=131 right=294 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Liste compl�mentaire
----- HyperTalk script -----
on mouseup
  get clickLine()
  put line it of me into cardName
  if cardName is not empty then
    -- sélection de la ligne
    get offset(return & cardName,me) + 1
    select char it to length(cardName) + it of me
    wait 15
    set cursor to watch
    visual barn door open
    go to card cardName
  else
    exit mouseup
  end if
end mouseup



-- part 11 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=423 top=266 right=288 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fermer
----- HyperTalk script -----
on mouseup
  cleanUpFirstCard
end mouseup


-- part 12 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=66 top=132 right=154 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Menu principal


-- part contents for card part 2
----- text -----
Cliquez sur le thème de votre choix dans le Menu principal.

-- part contents for background part 5
----- text -----
Notes sur la version 1.2.5 d'HyperCard

-- part contents for background part 1
----- text -----